0 poke775,168:data3,4,5,6,7,8,11,2:a$(0)="{space}{N}{down}{left*2}{N}{up}{right}":a$(1)="{M}{space}{down}{left}{M}{up}":b=53248:pokeb+32,z:pokeb+33,z:ti$="235956":pokeb+39,14:fori=zto62
1 poke704+i,z:next:x=130:y=40:s=54272:poke705,1:poke706,128:poke708,1:poke709,128:pokeb+29,1:pokeb+23,1:a$(4)="{yellow}not{space}enough{space}time!":l=99
2 print"{clear}{dark gray}{down*3}{space}";:a$(2)="{white}we{space}have{space}arrived.":d=56320:e=255:f=231:pokeb+31,z:pokeb+21,1:readh:k=rnd(h*-1):m=3+sgn(ti-f^2):v=32:ifh=2then9
3 fori=zto9:form=zto15:printchr$(147+h);a$(.5+rnd(1));:nextm:print:print"{down}{space}";:nexti:print"{home}{green}map";q+1;"hurry!{light green}":n=53270:poke2040,11:g=53265:p=200
4 if(rnd(1)*10)<3thenpokeb+32,1:poke(g-47)/82,z:pokeb+32,0:if(rnd(1)*h)>4thenpokeg,11:if(rnd(1)*10)>3thenpokeb+21,z:poken,216
5 print"{home}{down}"ti$;int(9900/l);"{delete}%":j=e-peek(d):u=(jand2)-(jand1)*2:c=(jand8)/4-(jand4)/2:a=(jand16)/16:ify<67thenu=1
6 x=(x+c-a*c/2)ande:y=y+u-a*u/2:pokeb,x:pokeb+1,y:ify>ftheny=65:x=130:pokeg,27:forw=0to200:poken,207:poken,200:nextw:q=q+1:goto2
7 ifpeek(b+v-1)and1thenpokeb+1,z:pokeb+25,z:x=130:y=67:forr=zto20:pokes+24,z:pokes+24,15:nextr:l=l+0.37:forw=zto3:poke1144+(rnd(1)*p*4),v:next
8 pokeg,27:pokeb+21,1:poken,p:pokes+int(rnd(1)*25),int(rnd(1)*256):goto4
9 fort=zto240:pokeg,11:printchr$(t)"ravelling":pokeb+32,t:pokeg,27:nextt:a=rnd(ti):printa$(m):pokeg,27:if((rnd(1)*(l))>99)andmthenpokeg,11:pokeb+v,1
